home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / sd.dir / 00002_Puzzle Routines.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  3.2 KB  |  65 lines
  1. on initPuzzle
  2.   global gSDPuzzleGrid, gSDPuzzlePiece
  3.   set gSDPuzzleGrid to ["1_1": rect(156, 43, 215, 127), "1_2": rect(195, 56, 281, 114), "1_3": rect(261, 43, 321, 128), "1_4": rect(300, 56, 386, 114), "1_5": rect(366, 43, 426, 128), "1_6": rect(406, 56, 493, 114), "2_1": rect(143, 108, 228, 167), "2_2": rect(208, 94, 269, 180), "2_3": rect(248, 108, 334, 168), "2_4": rect(314, 94, 374, 180), "2_5": rect(353, 108, 440, 168), "2_6": rect(419, 94, 479, 180), "3_1": rect(156, 147, 216, 233), "3_2": rect(195, 160, 282, 221), "3_3": rect(261, 147, 321, 233), "3_4": rect(300, 160, 387, 221), "3_5": rect(366, 147, 427, 233), "3_6": rect(406, 160, 493, 221), "4_1": rect(143, 213, 228, 273), "4_2": rect(208, 200, 270, 286), "4_3": rect(248, 213, 334, 273), "4_4": rect(314, 200, 373, 287), "4_5": rect(353, 213, 439, 273), "4_6": rect(419, 200, 479, 286), "5_1": rect(156, 253, 217, 339), "5_2": rect(195, 266, 281, 327), "5_3": rect(261, 253, 321, 339), "5_4": rect(300, 266, 387, 326), "5_5": rect(366, 253, 426, 339), "5_6": rect(406, 266, 492, 325), "6_1": rect(143, 319, 228, 379), "6_2": rect(208, 306, 268, 392), "6_3": rect(248, 319, 333, 378), "6_4": rect(314, 306, 373, 391), "6_5": rect(353, 319, 440, 378), "6_6": rect(419, 306, 479, 392)]
  4.   set gSDPuzzlePiece to ["1_1": EMPTY, "1_2": EMPTY, "1_3": EMPTY, "1_4": EMPTY, "1_5": EMPTY, "1_6": EMPTY, "2_1": EMPTY, "2_2": EMPTY, "2_3": EMPTY, "2_4": EMPTY, "2_5": EMPTY, "2_6": EMPTY, "3_1": EMPTY, "3_2": EMPTY, "3_3": EMPTY, "3_4": EMPTY, "3_5": EMPTY, "3_6": EMPTY, "4_1": EMPTY, "4_2": EMPTY, "4_3": EMPTY, "4_4": EMPTY, "4_5": EMPTY, "4_6": EMPTY, "5_1": EMPTY, "5_2": EMPTY, "5_3": EMPTY, "5_4": EMPTY, "5_5": EMPTY, "5_6": EMPTY, "6_1": EMPTY, "6_2": EMPTY, "6_3": EMPTY, "6_4": EMPTY, "6_5": EMPTY, "6_6": EMPTY]
  5. end
  6.  
  7. on PuzzleLocation aPoint
  8.   repeat with vI = 1 to 36
  9.     set vRect to getAt(gSDPuzzleGrid, vI)
  10.     if inside(aPoint, vRect) then
  11.       return getPropAt(gSDPuzzleGrid, vI)
  12.     end if
  13.   end repeat
  14.   return EMPTY
  15. end
  16.  
  17. on GetPuzzleRect aPos
  18.   global gSDPuzzleGrid
  19.   return getProp(gSDPuzzleGrid, aPos)
  20. end
  21.  
  22. on GetPuzzleAt aPos
  23.   global gSDPuzzlePiece
  24.   return getProp(gSDPuzzlePiece, aPos)
  25. end
  26.  
  27. on PutPuzzleAt aPos, aPiece
  28.   global gSDPuzzlePiece
  29.   set vOld to getProp(gSDPuzzlePiece, aPos)
  30.   setaProp(gSDPuzzlePiece, aPos, aPiece)
  31.   return vOld
  32. end
  33.  
  34. on PlacePuzzlePieces
  35.   global gSDPuzzlePiece, gSDPuzzleGrid
  36.   repeat with vI = 1 to 6
  37.     repeat with vJ = 1 to 6
  38.       set vName to vI & "_" & vJ
  39.       set vPiece to getProp(gSDPuzzlePiece, vName)
  40.       if vPiece <> EMPTY then
  41.         set vRect to GetPuzzleRect(vName)
  42.         set vSprite to NameToNum(vPiece)
  43.         set the castNum of sprite vSprite to cast ("N_" & vPiece)
  44.         set the locH of sprite vSprite to getAt(vRect, 1) + (the width of cast ("N_" & vPiece) / 2)
  45.         set the locV of sprite vSprite to getAt(vRect, 2) + (the height of cast ("N_" & vPiece) / 2)
  46.         set the visible of sprite vSprite to 1
  47.       end if
  48.     end repeat
  49.   end repeat
  50. end
  51.  
  52. on PuzzleComplete
  53.   global gSDPuzzlePiece
  54.   repeat with vY = 1 to 6
  55.     repeat with vX = 1 to 6
  56.       set vLoc to vY & "_" & vX
  57.       set vAtLoc to GetPuzzleAt(vLoc)
  58.       if vLoc <> vAtLoc then
  59.         return 0
  60.       end if
  61.     end repeat
  62.   end repeat
  63.   return 1
  64. end
  65.